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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE RMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ePOnaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE GR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
facility: 

VAX/VMS PL1 runtime Library 
abstract: 


This module contains the pli runtime routine that determines the 
byte size of an operand to be read, written or rewritten. 


author: 
c. spitz 10-sep-79 


modified: 
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1-002 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
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$defdat sdefine pl1 operand node data types 


ML peer resize 


! 
5 


4 $Eb=138e 9¢: 93: i$ et yiee SPL iB gr retz. MAR; 1 tae dy 
local data 


rtshare ssharable 
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p++ 

; pli$Sbytesize -- determine byte size of an operand 

functional description: 
This routine determines the size in bytes of an operand, based upon 
the size field generated by the compiler and the operands data type. 


(ap) = number of arguments (1) 
4(ap) = word containing the size of the operand 
6(ap) = word containing the data type of the operand 


WO OONAUES WN ( O ODNAUE WN" OOOnNOu 


0 
0 
0 
0 outputs: F 
0 r0 - contains 1 or pli$_invdatyp&*c1 
: rl = contains the Length in bytes of the operand 
0 
000C 0 sentry pli$$bytesize,“m<r2,r3> 
50 01 0 0 movl #1,r0 sassume success 
26 04 AC C 0 movzwl 4(ap),r sget size of operand 
5 06 AC C 0 movzwl 6(ap),r sget data type of operand 
000D case > le - 3case on the data type 
000D <10$, - sundefined 
000D = spicture 
o* fixed binary 
000D s* sfloat binary 


sfixed decimal 


o 
o 
So 
_—] 


90$ 
20$ 
50$ 
80$ 
000D 1108, - ifloat decimal 
000D 10$, - scomplex fixed binary 
000D 96 10$, - scomplex float binary 
000D ? 10$, - scomplex fixed decimal 
000D 8 10$, - scomplex float decimal 
000D 9 90$, - ;character 
it ! ? {28- - character varying 
000D 1 ; 10$, - ibit varyin 
000D 1 1008, - tbit aligne 
000D 104 10$, - fixed 
0000 105 10$, - offset 
000D 106 90$, - sarea 
000D 107 10$, - sfile 
8808 108 10$, - zlabel 
0D 109 10$, - sentry 
0000 110 10$, - 3 format 
BhoD 111 10$, - sdope vector 
000D 1 § 90$, - structure 
OD 1 10$, - sbuilt in function 
op 114 10$, - condition 
> ite 10$, - sgeneric 
0D 1 § 90$> jarray 
53 00000057 of 1 4 : 108: capt F<feth_structurerGt> 65 sbit sized structure? 
e 
50 00009000" 8F i 33 118 peel ro 
0 7 CA be 120 bicl # iclr status 
50 4 C8 s¢Oté*@ bisl #4,r sset fatal error 


. sif eql, yes. cont 
Li$_invdatyp.r0 sif invalid data type then set data 
e r 
} 


PLISSBYTESIZE 
1-002 


04 SF 1 § ret 
3 1 4 $ 125 20$ movl #i,r1 
04 be 4 a 6 4 bbc #472408 
mov of 
be 6A 1 : 30$: ret 
FB 52 03. 1 B 127 40$: bbe 43.72.30 
5 02 B? of : 8 novt 2.r 
re 
51 O4 D0 $58 159 50$ movl #4, 1 
ee Cn ee 
e 
51 10 p? O78 | § $ novt #16,r1 
re 
8 52 BI BOE 135 708: cap casas 
e 
51 08 D0 9084 ; novt #8061 
re 
52 52 9A 0088 #£«2139 80$ movzbl r2,r2 
52 52 FF 8F 78 0088 140 ash at, r2,r2 
32 D6 0090 =: 141 incl 
51 5 BY 94 186 no : ri 
re 
51 52 dO 0096 144 908: mov r2,r1 
re 
52. 07 CO it 146 100$: addl  #7,r2 
51 52. FD 8F i 9090 147 ashl #-3,r2,r1 
re 
51 04 DO OOA3 149.1108: movil  #4,r1 
07 52 D1 OOA6'~ 150 cmpl re #7 
HR Be le one, Oe 
r 
51 08 D0 OOAC 13 1308 movt —s-« #8, 1 
OF 52 D1 OOAF 154 cmpol r2,415 
Ff? 15 O00B2 155 bleq 120 
51 10 DO O0B4 156 movl #16,r1 
04 0087 #4«23157 ret 
0088 158 140$: 
00B8 159 end 
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;type error ond ¢ return 
assume it fits in 1 byte 
f precision > 15 then 
iset Le length of 4 bytes 

iretu 
sif precision > 7 then 
iset enaeh of 2 bytes 


cor float bin, assume single precision 
it precision > 5 58 ait 


en 
tset 16 bytes 
sand return 
iif precision > 24 
en 


iset 8 bytes 
sand return 
idlvide scal 
aiige mamber of decimal digits by 2 


—_ rest 

;and return 
boo a, result 

ire 

3add 7" to number of bits 
idivide by 8 

sand return 

ifor flt_dec, assume single prec 
iprec > 7? 

:if gtr, yes, cont 
treturn 
zassume double prec 
prec > 15? 

sif be. no, it's double 
iset quad prec 
sreturn 
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Symbol table pay 9¢ iH 36 UPLIRTL. SREIPLIBYTSIZ MAR; 1 . (1) 
DAT_K_STRUETURE= 00000 
PLISSBYTESIZE §5098000 va 61 
PLIS_INVDATYP eerereee 1 
¢eeceeeeecececoece + 
' Psect synopsis } 
$eewwwoococococes + 
PSECT name Allocation PSECT No. Attributes 
. .* L L 
-PLISCODE 000000B8 (¢ 184.) O1¢ 1.) PIC USR CON LCL SHR EXE RD NOWRT NOVEC LONG 


teen em mom eee om ee woman + 


! \ Performance indicators ! 


ee me em em eubeneannest 


Phase Page faults CPU Time Elapsed Time 


Initialization 13 00:00:00.02 00:00:02.29 
1 processing 69 00:00:00.55 00:00:04.76 
Pas 65 Bb Shs 00:00:03.92 
Synbol table sort 0 00:00: 8-9 00:00:00.18 

32 00:00:00.35 00:00:01.24 
Suabot table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 1 00:00:00.01 00:00:00.01 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 181 00:00:01.78 00:00:12.41 


The working set Limit was 750 pages. 

4105 bytes (9 pages) of virtual memory were used to buffer the intermediate co 

There were 10 pages of symbol table space allocated to hold 29 non-local and ee local symbols. 
9 source Lines were read in Pass 1, producing 11 object records in Pass 2. 

4 pages of virtual memory were used to define 3 macros. 
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i ae ae 00000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 


Macro Library name Macros defined 


“$255$DUA28: PLIRTL. OBJIPLIRTMAC,. 3MLB; 1 3 
“$255$DUA28: CSYSLIBJSTARLET.MLB; 2 ° 
TOTALS (all Libraries) 

40 GETS were required to define 3 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=TRACEBACK/LIS=LIS$:PLIBYTSIZ/OBJ=OBJ$:PLIBYTSIZ MSRC$:PLIBYTSIZ/UPDATE=(ENHS$:PLIBYTSIZ)+LIBS:PLIRTM 


1=- 


PMENT CORPORATION = 
SAND PROPRIETARY 


